home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / i / imagedeskv1.6cracked.lha / imagedesk / rexx / MakeAmigaPlusNo1.IDesk < prev    next >
Text File  |  1995-04-14  |  1KB  |  36 lines
  1. /* generates catalogs from the 'Amiga Plus CD No.1' */
  2.  
  3. /* --------------------- standard startup ----------------------- */
  4.  
  5. OPTIONS RESULTS
  6.  
  7. if( ADDRESS() ~= "IDESK_REXXPORT" ) then
  8.     ADDRESS IDESK_REXXPORT
  9.  
  10. /* -------------------------------------------------------------- */
  11.  
  12. IDREQUEST "Abort|Continue" '"This Script requires the Amiga Plus CD No.1."'
  13. if (RESULT = 1) then exit
  14.  
  15. IDGETPATH '"Where to store the catalogs?"'
  16. if (RC > 0) then exit
  17. catdir = RESULT
  18.  
  19. if (right(catdir, 1) ~= ':') then
  20.     catdir = catdir || '/'
  21.  
  22. SETTPREFS DITHER TRUE
  23. SETTPREFS TSIZE STD
  24.  
  25. GENCAT '"'||catdir||Kolodziejczik.cat||'"' "AMIGA_PLUS:Bilder/Kolodziejczik" "#?.GIF"
  26. GENCAT '"'||catdir||Lesergalerie_GIF.cat||'"' "AMIGA_PLUS:Bilder/Lesergalerie/GIF-Format" "#?.GIF"
  27. GENCAT '"'||catdir||Lesergalerie_JPG.cat||'"' "AMIGA_PLUS:Bilder/Lesergalerie/JPEG-Format" "#?.JPEG"
  28. GENCAT '"'||catdir||Lesergalerie_TGA.cat||'"' "AMIGA_PLUS:Bilder/Lesergalerie/TARGA-Format" "#?.TGA"
  29. GENCAT '"'||catdir||SeaQuest_GIF.cat||'"' "AMIGA_PLUS:Bilder/SeaQuest/GIF" "#?.GIF"
  30. GENCAT '"'||catdir||SeaQuest_JPG.cat||'"' "AMIGA_PLUS:Bilder/SeaQuest/JPEG" "#?.JPG"
  31. GENCAT '"'||catdir||SeaQuest_TGA_G.cat||'"' "AMIGA_PLUS:Bilder/SeaQuest/Targa_Gross" "#?.TGA"
  32. GENCAT '"'||catdir||SeaQuest_TGA_K.cat||'"' "AMIGA_PLUS:Bilder/SeaQuest/Targa_Klein" "#?.TGA"
  33. GENCAT '"'||catdir||StarTrek.cat||'"' "AMIGA_PLUS:Bilder/StarTrek" "#?.TGA"
  34.  
  35. IDREQUEST OK '"Catalogs have been stored to:'||'0A'x||catdir'"'
  36.